Open/Write Form1 Text1 *.erm File1 Drive1 Button_OK System Button_Canel Cancel System Label1 Drive: ` ` g Label_Dir Command1_Click Button_OK_click Button_Canel_Click Drive1_Change^ Drive1 Drive toolsH EnabledL main Dir1_Changer File1 Label_Path Form_Load Label_Drive Label_Dir' Text1_Change Text1_KeyPress KeyAsciil File1_ClickS Text1 Text% FileName ERROR_CHECK Label_Drive_Click Left~ Captionx Text1_LostFocus ERR_PATTERN" ERR_PATTTEN ERR_DISKg ERR_DRIVE, Pattern Text1_KeyDown{ Keycode Shift6 Text1_KeyUpa ThenCall1 File1_DblClick Form_Activate Label_Dir_Click captain Label1_Click\ SaveOrLoad menufileg menuFileSave temp_filename+ A_filename\ sxdcs menuFileSave_Click FileSave FormE ListCount check OK_OVER OVER_OKW FileNum tempIntP OVER_FILE tempStr ThenMsgBox= DataText DataLine Line1 DataRectangle Rectangle1 DataRoundrectangle RoundRectangle1 DataCircle Circle1 DataDiamondN Diamond Diamond1 MaxFont menuTextFontName FileLoad IfNext Count CountNumC tempi5 BorderStyle BorderWidth Height Leftr Width DiamondDraw tempSingle CountNumas& tempSin tempSinmain MaxDiamond MaxTextY MaxLinei MaxRectangle~ MaxRoundrectangle MaxCircle Visible Enable Visibled HideAllDot DotAllHide FontBold FontItalic FontNameJ FontStrikethru) FontUnderline FontSize BackColor Button_OK Screen MousePointer Button_Canel_Click Button_OK_click file already exists, replace it? Replace file SaveFailure MacbearERModel file is not used for this software File Format Error file not found Error Message ER Model ( Dir1_Change Drive1_Change disk drive error Error Message File1_Click File1_DblClick FileLoad Wait Icon' Read Diamond Datae Read Circle Data Read Roundrectangle Data Read Rectangle Data Read Line Data Read Text Data Default Icon Form_Activate *.erm *.erm Text1_KeyPress ENTER KEY DETECTED Text1_LostFocus filename error Error Message